Elektroninis paštas yra būtinas, tačiau pasikartojančios užduotys, pvz., atsakymų adresavimas pagal vardą ir atitinkamų sveikinimų pridėjimas, gali būti varginantis dalykas. , patogus „Outlook“ makro, suderinamas su „Outlook 2016, 2019“ ir „Office 365“, kuris visiškai automatizuoja asmeninius el. Pašto sveikinimus, taupydamas vertingą laiką. GreetHammer Kas yra GreetHammer? "GreetHammer" yra paprastas, bet galingas "Microsoft Outlook" makro, skirtas supaprastinti atsakymo į el. Laiškus procesą, automatiškai įterpiant asmeninius sveikinimus, pagrįstus gavėjo vardu ir dienos laiku. Kodėl reikia naudoti GreetHammer? 
 
 
 
 Efektyvumas: Greitas atsakymas su asmeniniais sveikinimais be rankinių pastangų. Profesionalumas: Nuosekliai suformatuoti ir mandagūs atsakymai sustiprina jūsų profesinį įvaizdį. Naudojimo paprastumas: Vienas paspaudimas, kad būtų sukurti visiškai personalizuoti el. Pašto atsakymai. Kaip veikia GreetHammer? Štai greitas suskirstymas: Automatinis vardų aptikimas GreetHammer protingai ištraukia gavėjo vardą iš siuntėjo detalių. Dinamiškas sveikinimas pagal laiką Automatiškai koreguoja sveikinimus pagal dienos laiką: 
 
 
 
 „Labas rytas“ elektroniniams laiškams iki vidurdienio. „Labas rytas“ nuo vidurdienio iki 14 val. „Labas vakaras“ po 14 val. Profesionalus el. Pašto formatas Įterpia sveikinimus, kurie buvo tvarkingai suformatuoti naudojant „Calibri Light“ šriftą, nuosekliai spalvoti, kad atitiktų standartinį „Outlook“ atsakymo stilių. Atsakyti į Visų funkcijų „GreetHammer“ naudoja „Atsakyti visiems“ funkciją visiems originaliems el. laiškų gavėjams. GreetHammer naudojimas 1 žingsnis: makro nustatymas 
 
 
 
 
 
 Atidarykite Outlook. Paspauskite ALT + F11, kad atidarytumėte VBA redaktorių. Projekto skydelyje pereikite į Project1 (VbaProject.OTM). Dešiniuoju pelės mygtuku spustelėkite „Moduliai“, pasirinkite „Įterpti“, tada „Moduliai“. Įdėkite pateiktą „GreetHammer“ kodą į naują modulį. 2 žingsnis: Pritaikykite saugumo nustatymus 
 
 Ensure macros are enabled in Outlook:
 
 
 
 
 Go to  File > Options > Trust Center > Trust Center Settings > Macro Settings Select  , or   if your policy allows. Notifications for digitally signed macros, all other macros disabled Enable all macros 3 žingsnis: sukurkite „Ribbon“ mygtuką 
 
 
 
 
 
 
 
 
 Dešiniuoju pelės mygtuku spustelėkite „Outlook“ juostelę ir pasirinkite Pritaikyti juostelę. Dešinėje skydelyje sukurkite naują grupę norimoje skirtuke spustelėdami Naujoji grupė. Grupės pervadinimas (pvz., „GreetHammer“) Iš lango „Pasirinkti komandas iš“ pasirinkite „Makrokomandos“. Raskite ir pasirinkite makro (pvz., „AutoReplyAllWithGreeting“) ir spustelėkite „Pridėti >>“. Makro mygtuko pervadinimas aiškumui (pvz., „GreetHammer“) paspaudus mygtuką „Pervadinimas“. Pasirinkite ikoną ir spustelėkite OK. Dabar jūsų makro yra lengvai prieinama iš "Outlook" juostos! 4 žingsnis: paleiskite makro 
 
 
 Pasirinkite laišką savo pašto dėžutėje. Spustelėkite naujai sukurtą juostelės mygtuką arba paspauskite ALT + F8, pasirinkite „AutoReplyAllWithGreeting“, tada spustelėkite „Run“. Jūsų atsakymo el. Laiškas bus automatiškai atidarytas su asmeniniu sveikinimu. Aprašymas GreetHammer Galite toliau koreguoti scenarijų pagal savo pageidavimus: 
 
 
 
 
 : Modify the   or font settings within the macro to match your preferences. (I chose the shade of blue that represents replies) Reply Colors and Fonts replyColor 
 
 : Adjust the hours in the "Determine the greeting based on the time of day" section for your working hours. Greeting Times Naudojimo GreetHammer privalumai 
 
 
 
 Asmeninis ryšys: automatiškai kreipiasi į kiekvieną gavėją pagal vardą. Laiko taupymas: pašalina nereikalingą rašymą, pagreitina el. pašto darbo eigą. Nuoseklumas: užtikrina profesionalų sveikinimą ir formatavimą kiekviename el. Laiške. GreetHammer padeda jums tvarkyti savo "Outlook" ryšius greičiau, efektyviau ir profesionaliai. Automatizuokite savo el. Pašto sveikinimus ir atgaukite vertingą laiką su šiuo paprastu, bet galingu įrankiu! Laimingas el. Laiškas ! Sub AutoReplyAllWithGreeting()
    Dim originalMail As MailItem
    Dim replyMail As MailItem
    Dim recipientName As String
    Dim currentHour As Integer
    Dim greeting As String
    Dim indent As String
    Dim replyColor As String
    
    ' Define the color code for standard Outlook reply blue
    replyColor = "#1F497D"
    
    ' Check if an email is selected
    If Application.ActiveExplorer.Selection.Count = 0 Then
        MsgBox "Please select an email to reply to."
        Exit Sub
    End If
    
    ' Get the selected email
    Set originalMail = Application.ActiveExplorer.Selection.Item(1)
    
    ' Create the "Reply All"
    Set replyMail = originalMail.ReplyAll
    
    ' Simply extract the sender's first name for the greeting
    recipientName = GetFirstName(originalMail.SenderName)
    
    ' Get the current hour
    currentHour = Hour(Now)
    
    ' Determine the greeting based on the time of day
    Select Case currentHour
        Case 0 To 11
            greeting = "Good morning."
        Case 12 To 16
            greeting = "Good afternoon."
        Case Else
            greeting = "Good evening."
    End Select
    
    ' Set indentation, using HTML for proper email formatting
    indent = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" ' 5 non-breaking spaces for indentation in HTML
    
    ' Insert the personalized greeting into the reply with color styling and Calibri Light font
    replyMail.HTMLBody = _
        "<p style='color:" & replyColor & "; font-family: Calibri Light; font-size: 11pt;'>" & _
            recipientName & "," & _
        "</p>" & _
        "<p style='color:" & replyColor & "; font-family: Calibri Light; font-size: 11pt;'>" & _
            indent & greeting & _
        "</p>" & _
        replyMail.HTMLBody
    
    ' Display the reply email
    replyMail.Display
End Sub

' Function to extract the first name from the full name
Function GetFirstName(fullName As String) As String
    Dim nameParts() As String
    
    ' Check if the name is formatted with a comma (e.g., "LastName, FirstName")
    If InStr(fullName, ",") > 0 Then
        ' Split by comma and trim any extra spaces
        nameParts = Split(fullName, ",")
        GetFirstName = Trim(nameParts(1)) ' Use the second part, which is the first name
    Else
        ' Otherwise, split by space and return the first part (assumed to be first name)
        nameParts = Split(fullName, " ")
        GetFirstName = nameParts(0)
    End If
End Function


Read My Stories

Šis garso įrašas sukurtas originalia istorijos kalba!

GreetHammer: jūsų galutinis "Outlook" makro automatizuoti el. Pašto sveikinimai

About Author

KOMENTARAI

PABAIGTI ŽYMES

ŠIS STRAIPSNIS BUVO PRISTATYMAS

Related Stories

Light-Mode

Classic

Newspaper

Dark-Mode

Neon Noir

Minty

HN StartUps